Listin Gambas2: file exit

Creating a gambas2 program, step by step, a telephone index

From : http://listingambas.blogspot.com/2011/06/modulo-archivo-salir.html

Module File: Quit

To exit the program, the command used is ME.Close.
In the Menu / File / Exit, enter the following code:

PUBLIC SUB Quit_Click ()

ME . Close

END

This is made "roughly", meaning that if we have not saved, the latest introduced or changed data will be lost .... What can we do to "correct" it?

We create a global variable called "change" In the module Var:

PUBLIC change AS String

Every time we enter, edit or delete , the value of this variable becomes change = "yes"

PUBLIC SUB ButtonValid_Click ()

IF var. status <> 'Edit' THEN

'Add data to the matrix

var. id . add ( "Id" & Str $ ( Now ))

var. dni . add (TextBoxDNI. text )

var. name . add (TextBoxName. Text )

var. surnames . add (TextBoxSurname. Text )

var. company . add (TextBoxCompany. Text )

var. position . add (TextBoxPosition. Text )

var. tel_company . add (TextBoxJobTel. Text )

var. tel_private . add (TextBoxPrivateTel . text )

var. fax . add (TextBoxFax. Text )

var. mobile_company . add (TextBoxJobMobile. Text )

var. mobile_private . add (TextBoxPrivateMobile Text )

var. page . add (TextBoxWeb. Text )

'I keep on the path where the picture is the picture

var. photo . add (var. ImagePath )

var. address . add (TextBoxAddress. Text )

var. comments . add (TextBoxComments. Text )

var. data_date . add (TextBoxDate. Text )

var. mail . Add (TextBoxMail. Text )

var. change = "yes"

ENDIF

IF var. status = 'Edit' THEN

var. dni [var. RegisterEdited ] = TextBoxDNI. text

var. name [var. RegisterEdited ] = TextBoxName. Text

var. surnames [var. RegisterEdited ] = TextBoxSurnames. Text

var. company [var. RegisterEdited ] = TextBoxCompany. Text

var. position[var. RegisterEdited ] = TextBoxPosition. Text

var. tel_company [var. RegisterEdited ] = TextBoxJobTel. Text

var. tel_private [var. RegisterEdited ] = TextBoxPrivateTel. text

var. fax [var. RegisterEdited ] = TextBoxFax. Text

var. mobile_company [var. RegisterEdited ] = TextBoxJobMobile. Text

var. mobile_private [var. RegisterEdited ] = TextBoxPrivateMobile. Text

var. page [var. RegisterEdited ] = TextBoxWeb. Text

'I keep on the path where the picture is the picture

var. photo [var. RegisterEdited ] = var. ImagePath

var. address [var. RegisterEdited ] = TextBoxAddress. Text

var. comments [var. RegisterEdited ] = TextBoxComments Text

var. data_date [var. RegisterEdited ] = TextBoxDate Text

var. mail [var. RegisterEdited ] = TextBoxMail Text

var. change = "yes"

'Is given by the state of editing Complutense

ENDIF

'Put the property blank. Text of texbox

PictureBoxFoto. Picture = Picture [ "icon: / 96/gambas" ]

TextBoxDNI. text = ""

TextBoxName. text = ""

TextBoxSurname. text = ""

TextBoxCompany. text = ""

TextBoxPosition. text = ""

TextBoxJobTel.. text = ""

TextBoxPrivateTel.. text = ""

TextBoxFax. text = ""

TextBoxJobMobile.. text = ""

TextBoxPrivateMobile.. text = ""

TextBoxWeb. text = ""

PictureBoxPhoto. Picture = ""

TextBoxAddress. text = ""

TextBoxComments. text = ""

TextBoxDate. text = ""

TextBoxMail text = ""

'Write the entered data in gridview

title. fill ()

'Is given by the state of editing Completed

var. status = ""

'setfocus right at the beginning of the data

TextBoxDNI. SetFocus

'Make gridViewData again accessible

gridViewData. enabled = TRUE

END

And when we delete:

PUBLIC SUB ButtonClear_Click ()
IF var. status <> 'Edit' THEN

'If we are in mode "Define"
PictureBoxFoto. Picture = Picture [ "icon: / 96/gambas" ]

TextBoxDNI. text = ""

TextBoxName. text = ""

TextBoxSurname. text = ""

TextBoxCompany. text = ""

TextBoxPosition. text = ""

TextBoxJobTel.. text = ""

TextBoxPrivateTel.. text = ""

TextBoxFax. text = ""

TextBoxJobMobile.. text = ""

TextBoxPrivateMobile.. text = ""

TextBoxWeb. text = ""

PictureBoxPhoto. Picture = ""

TextBoxAddress. text = ""

TextBoxComments. text = ""

TextBoxDate. text = ""

TextBoxMail text = ""

ENDIF

IF var. status = 'Editing' THEN

'If we are in mode "edition"

var. id . REMOVE (var. RegisterEdited )

var. dni . REMOVE (var. RegisterEdited )

var. name . REMOVE (var. RegisterEdited )

var. surnames . REMOVE (var. RegisterEdited )

var. company . REMOVE (var. RegisterEdited )

var. position . REMOVE (var. RegisterEdited )

var. tel_company . REMOVE (var. RegisterEdited )

var. tel_private . REMOVE (var. RegisterEdited )

var. fax . REMOVE (var. RegisterEdited )

var. mobile_company . REMOVE (var. RegisterEdited )

var. mobile_parti . REMOVE (var. RegisterEdited )

var. page . REMOVE (var. RegisterEdited )

var. photo . REMOVE (var. RegisterEdited )

var. address . REMOVE (var. RegisterEdited )

var. comments . REMOVE (var. RegisterEdited )

var. data_date . REMOVE (var. RegisterEdited )

var. mail . REMOVE (var. RegisterEdited )

var. change = "yes"

'AND WE SET ALL TO BLANKS

PictureBoxPhoto. Picture = Picture [ "icon: / 96/gambas" ]

TextBoxDNI. text = ""

TextBoxName. text = ""

TextBoxSurname. text = ""

TextBoxCompany. text = ""

TextBoxPosition. text = ""

TextBoxJobTel.. text = ""

TextBoxPrivateTel.. text = ""

TextBoxFax. text = ""

TextBoxJobMobile.. text = ""

TextBoxPrivateMobile.. text = ""

TextBoxWeb. text = ""

PictureBoxPhoto. Picture = ""

TextBoxAddress. text = ""

TextBoxComments. text = ""

TextBoxDate. text = ""

TextBoxMail text = ""

'We make gridViewData again accessible

gridViewData. enabled = TRUE

ENDIF

'Write the entered data in gridviews

title. fill ()

' setfocus right at the beginning of the data

TextBoxDNI. SetFocus

'given by the state of editing Completed

var. status = ""

END

Each time you save or open a file, we set variable change = "no"

In the module File / Save ():

... ...

File . Save (target, line)

var. change = " no " 'has saved, all the information has ceased to be changed

ends: 'We have pressed the cancel button in the dialog box Dialog.SaveFile ()

'End of the subroutine

END

In the module File / Open ()

... ...

title. fill ()

var. change = " no " 'has opened a data file, no changes

ENDIF

EndRead:

END

and, when we going through an If ... Then, we get Message.Info, we asked if we want to leave without saving changes or not.

PUBLIC SUB Quit_Click ()

Form_close ()

END

PUBLIC SUB Form_Close ()

DIM res AS Integer

IF var. change = "yes" THEN

res = Message. Question ( "Do you want to exit without saving?" , "yes" , "no" )

IF res = 1 THEN

ME . Close

ELSE

STOP EVENT 'stop this event and do not leave the program

ENDIF

ELSE

ME . Close

ENDIF

'we do not leave the program

End

Thus, every time we change or alter the data we are always asked to confirm that we want to exit without saving.

A professional touch to our program!!

Important Note:
Now with Form_Close (), when we press the button "X", the program asks us if we want to leave or not.
The form may have border, it as to be set to fixed.
Fmain.Border = fixed